home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / dir / megad31b.lha / rexx / MDARexxStart.rexx < prev    next >
OS/2 REXX Batch file  |  1993-06-30  |  526b  |  24 lines
  1. /*    MegaD will look for the MDARexxStart.rexx file in its home directory
  2.     when it is first run.    If it is found it will be executed.
  3.       
  4.     This ARexx program    will clear all of the internal strings to NULL.
  5. */
  6. ADDRESS REXX
  7.  
  8. OPTION RESULT
  9.  
  10. ADDRESS MEGAD
  11.  
  12. dbug TRUE
  13.  
  14. /* Send output to a console window on the MegaD Screen */
  15. call close 'STDOUT'
  16. call open 'STDOUT','con:0/12/640/100/MegaD RX/SCREEN MEGAD', 'W'
  17.  
  18. subscript = 0
  19. DO 40
  20.     SAY 'Clearing string 'subscript' to NULL'
  21.     SetString subscript NULL
  22.     subscript = subscript + 1
  23.     END
  24.